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4h ZTITLE 'SCRSMISC = Misc. routines for the screen package’ 
E SCRSMISC 
pOEnT = 'v04-000' ! File: SCRMISC.B32 Edit: PLL1005 
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ABSTRACT: 


This module contains routines which can perform their functions 
independently of the other screen routines. These include 
information reporting and initialization routines. 


ENVIRONMENT: User mode, Shared library routines. 
AUTHOR: P. Levesque, CREATION DATE: 18-Oct-1982 
MODIFIED BY: 


1-001 = Original. mut 18-Oct-1982 
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1-005 - i. "a s oul move a byte, not word, to pagesize. 
1-004 = In GET_C he terminal is not A. vt52 or vt100, 
call to maa it SCREEN to output mode setting. PLL 13. 5e- 1983 
1-005 - A fix to the parameter check ng in LIBSSCREEN_IN 
y. PLL 21-Aug-1984 
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yo0-000 Declarations . . 127808- 1382 96:92:24 VMSLIB. SRCISCAMISC.B 32" 1 

3 7 056 1 XSBITL ‘Declarations’ 3 
; 8 8 1! $ 
; 9 1 ! SWITCHES: : 
OR $60 1 
: 6 06} 1! : 
Fee ' 66 1 ! LINKAGES: ; 
; © 065 1! 3 
; 65 064 1! NONE ‘ 
; © 065 1! F 
; 67 Fe: 1 ! TABLE OF CONTENTS: 3 
: 88 S66 1 : 
: 70 0069 1 FORWARD ROUTINE : 
ee 0070 1 $ 
3 4 $30) : ! The LIB$ entry points : 
area $078 1 LIBSSCREEN_INFO, ' Screen information retrieval : 
; fe ORre ! LIBSSET_OUTPUT, ! Establish terminal for output : 
Reem yg 0076 1! The SCR$ entry points : 
. fe 0077 1 : 
3 79 0078 1 SCRSSCREEN_INFO, ! Screen information retrieval 3 
: 80 0079 1 SCRS$SET_OUTPUT ' Establish terminal for output 3 
: a Bons ! SCRSSTOP_OUTPUT, ! Stop output to terminal or screzn buffer : 
: 8B 00 1! Local subroutines ; 
; «684 00 1 EATE, ' Create an RMS file 3 
3; 8 00 1 EXIT_HANDLER, ! Image exit handler 3 
; 00 1 GET_CHAR; ! Get terminal characteristics ; 
apa ek 7 
>: 89 1! The rot teyeoe is equated via a GLOBAL BIND : 
3 s : : LIBSSTOP_OUTPUT = SCRSSTOP_OUTPUT ; 
: 9 1! ; 
“es 1 ! INCLUDE FILES 3 
: 38 & 
> 96 1 REQUIRE 'SRC$:SCRPROLOG'; ' defines psects, macros, tcb, : 
3 97 1 ' web, & terminal symbols 3 
; 1 REQUIRE *LIBS:STRLNK" i Linkage to LIBSANALYZE. SDESC_R2 
; 130 1 SCRSEXITBLOCK : VECTOR C4] INITIAL (0, 9, 1, 0), : 
s 101 1 ' ist (ongword is ? 3 
; 106 1 ! 2nd longword is exit handler 3 
; Ww 1 ! 3rd longword is ? 3 
: 104 1 ' 4th sgnguere is exit status : 
3; 105 1 SCRSL_EXITSTS ; ! filled in before exit handler 3 
3 198 1 ' calle 3 
s 10 1 3 
; 108 1 !¢ 3 
: 109 1 ! $GETDVI storage : 
HY 110 1 Hee ee e 
i 42 1 Ow 
: 118 1 SCRSAB_DEVCLASS, : 
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SCRSMISC SCRSMISC = Misc. routines for the screen packa 1b-so 1984 02:29:5 AX-11 Bliss-32 V4.0-742 

yoe 008 LIBSSCREEN_INFO = Screen Information Retrievale 127808-1 3c ¢: 4:4 VMSLIB.SRCISCRMISC.B3251 

<7 $ 118 1 ZSBTTL "LIBSSCREEN_INFO = Screen Information Retrieval’ ; 
a 415 1 GLOBAL ROUTINE LIBSSCREEN_INFO ( ; 
s 138 414 1 FLAGS : REF VECTOR [,LONG], ; 
; 159 415 1 DEV_TYPE : REF VECTOR L,BYTEJ, : 
; 160 218 1 LINE_WIDTH : REF VECTOR [,WORDJ, 3 
; «6161 417 1 LINES_PER_PAGE : REF VECTOR [C,WORD ; 
; 46 418 1 )s : 
; 16 419 1 !4+ ; 
; 6164 420 1 ! FUNCTIONAL DESCRIPTION: 3 
s 165 421 1! 3 
: 166 04 1! This routine ; 
s 167 Be 1! ; 
; 168 424 1 ! CALLING SEQUENCE: : 
; 169 be - oe 3 
; 170 4 § a ret_status.wic.v = LIBSSCREEN_INFO (FLAGS.wl.r : 
; iri 04 1! »DEV_TYPE.wb.r : 
: 17 0429 1! ,LINES_PER_PAGE .ww.rJJJ) ; 
3; 174 0430 1! 4 
s 75 0431 1 ! FORMAL PARAMETERS: : 
; «176 BOs s. ; 
are ps 1! FLAGS.wl.r Rendition code for current window. ; 
> «178 434 1! Values: : 
3; 179 0435 1! SCRSM_BLINK display characters blinking. : 
; 180 0436 1! SCRSM_BOLD display characters in ; 
3 181 0437 1! higher-than=-normal intensity. 3 
3 ise 0438 1! SCRSM_NORMAL aT characters usin : 
e 3 0439 1! rendition associated with : 
3; «6184 0440 1! window. F 
: 185 0441 1! SCRSM_REVERSE display characters in reverse 3 
: 186 Bete 7 video -- i.e., using opposite PF 
: 187 0445 1! rendition from window default. : 
3 + Bees : } SCRSM_UNDERLINE display characters underlined. : 
3; 190 0446 1! DEV_TYPE.wb.r Optional. 3 
s 191 0447 1! 3 
; 19 448 1! LINE_WIDTH.ww.r Optional. ; 
; 19 449 1! : 
3: 194 450 1! LINES_PER_PAGE .ww.r Optional. ; 
; 195 0451 1! 3 
. 045 1 ! IMPLICIT INPUTS: 3 
; «19 455 1! 3 
: 198 454 1! NONE ; 
; #199 oe? 1! : 
: 00 4 § 1 ! IMPLICIT OUTPUTS: é 
; Bt 0457 1! 3 
; ; 458 1! NONE : 
: 20 459 1! : 
; Be £89 : COMPLETION STATUS: : 
3 3 Ree : S$S$_NORMAL Normal successful completion : 
; 208 464 1 ! SIDE EFFECTS: ; 
; 209 465 1! 3 
: 10 4 ' | NONE . 
: ii 467 1 !e- 3 
: 212 468 1 3 
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SCRSMISC SCRSMISC = Misc. routines for the screen pack 15 =1984 02:29: - - -0- 
V +500 LIBSSCREEN_INFO = Screen Information Retrievals 1 30071382 99:82 ; YMSLIB SRESSCAMI Se BS3e1 
BEGIN 
UILTIN 
ACTUALCOUNT 
ACTUALPARAMETER ; 
LOCAL 
LOC_BUFFER : BLOCK CSCRSK_LENGTH, BYTE) ; ! Local buffer 


1+ 
Get terminal information into our local buffer. 


SCRSSCREEN_INFO ( LOC_BUFFER ) ; 


+ 
! If no args, just return. 


' 
IF ACTUALCOUNT() EQL 0 
RETURN ( SS$_NORMAL ) ; 


aI 22222 Ree 
0900000000 0000 
OWONOUEWN—OODNAOUSWINO0O 
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14 
If FLAGS argument present, return the FLAGS value. 


IF ACTUALCOUNT() GEQ 1 
THEN 


WWII ANI oPonononofnononofng SS 


BEGIN 
IF Co aL aNE Tenens NEQ 0 

FLAGS[OJ = .LOC_BUFFER RSL_FLA 
0499 BUFFER CSCRSL_FLAGS) 


ELSE 
RETURN ( SS$_NORMAL ) ; 


'¢ 
: If DEV_TYPE argument present, return the DEV_TYPE value. 


IF ACTUALCOUNT() GEQ 2 
THEN 


BEGIN 
IF _ACTUALPARAMETER(2) NEQ 0 
DEV_TYPELO) = .LOC_BUFFER CSCRSB_DEVTYPE) 


ELSE 
RETURN ( SSS$_NORMAL ) ; 


1+ 
If LINE_WIDTH argument present, return the LINE_WIDTH value. 


IF ACTUALCOUNT() GEQ 3 
THEN 


Po oo eal al al ah Ab ah Ah hh Ab Al ee tee tee ee ee ee ee ed 1 ee 


BEGIN 
IF ACTUALPARAMETER(3) NEQ 0 
> LINE_WIDTHCO] = .LOC_BUFFER CSCRSW_WIDTH) 
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aon 
oc 


.IDENT \V04-000\ 

.PSECT _LIBSDATA,NOEXE, PIC,2 

00000000 00000001 00000000 00000000 00000 SCRSEXITBLOCK: 

00010 SCRSL_EXITSTS: 
00014 SCRSAB_DEVCLASS: 
00018 SCRSAB_DEVTYPE: 
0001¢ SCRSAW_DEVBUFSIZ: 
00020 SCRSAL_DEVDEPEND: 
00024 SCRSAL_DEVDEPND2 

00000000 00009000 00060004 00000000 00000000 00040004 00028 SCRBA_ITALST: 


00000000 00000000 000A0004 00000000 00000000 00080004 06040 
00000000 00000000 00000000 001(0004 


*s* 5 fF oO 
os 
Oo 
= 
—_* 
— 
Oo 


od 
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Wo 
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Ww 
ae 
oo 
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2, 6, 6 


OCLASS= SCRSA_ITMLST+4 
OTYPE= SCRSA_ITMLST#16 
12 SCRSA-ITMLST +2 
SCREALITMLST +40 
DEP2= SCRSA-ITMLST+5 
EXTRN SCRSS$GET TYPE _R3 
TRN LIBSANALYZE_SBESC_R2 
TRN LIBSASSIGN, LIBSFREE_EF 
RN LIBSFREE VM, LIBSGET~EF 
RN LIBSGET_9M, LIBSLP LINES 
RN SCRSPUT~SCREEN, SCRSSET_SCROLL 
TRN SCRSL_COROUTPUT 
XTRN SCRSL~FLINKHEAD 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


0, 0, 0, 524292, 0, 0, -; 
1 2 & 
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v0e~000 LIBSSCREEN_INFO = Screen Information Retrieval: 12286-1382 96:92:2 VMSLIB.SRCISCRMISC.B3251 
: 270 § ELSE 
: 4 RETURN ( SS$_NORMAL ) ; 
: i $ 1+ 
3 ie » If LINES_PER_PAGE argument present, return the LINES_PER_PAGE value. 
.. ; IF ACTUALCOUNT() GEQ 4 
8 7 THEN 
; re 82 : 4 ACTUALPARAMETER(4) NEQ 0 
; 39 05 § LINES_PER_PAGECO] = .LOC_BUFFER CSCRSW_PAGESIZE] ; 
: 8 03 : RETURN ( SS$_NORMAL ) ; 
: 284 0540 1 END; ! End of routine LIBSSCREEN_INFO 

-TITLE SCRSMISC SCRSMISC = Misc. routines for the scre 

3 en packag 
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SCRSMISC SCRSMISC = Misc + routines for the screen packa 18-50 Sep-1 AX-11 Bliss-32 V 28°. 74 $2. Page 7 
9602000 LIBSSCREEN_INFO = Screen snternation Retrievals Hats 7 96: $232 VMSLIB.SR ROIS SCRMIS -832;1 . (3) 
000 eENTRY L SSCREEN INFO, Save nothin ; 0413 
SE 14 08 SUL. 20 Spee . : 
at DD PUSHL 3; 0481 
0000V CF 0 F CALLS SCRSSCREEN_INFO 3 
$¢ 9 C TSTB tab) + 0486 
1 0 BEQL 4$ é 
04 AC D 8 1 TSTL 4 (AP) 3; 0496 
046 «#1 1 BEQL 1$ : 
04 BC 6E 6 0 1 MOVL §LOC_BUFFER, @FLAGS : 0498 
02 6C 19 1$ CMPB (APY, #2 ; 0506 
28 «IF 8 1¢ BLSSU_ 4$ 8 
08 ag B 1E TSTL 8( AP) 3; 0509 
05 13 00021 BEQL 2s ; 
08 BC 08 AE 90 000 ; MOVB LOC _BUFFER+8, @DEV_TYPE ; 0511 
0 f 91 00028 2$ CMPB APY, #3 ; 0519 
1 1F 00028 BLSSU 3 
0c AC rE 002D TSTL 12 (AP) 3; 0522 
05 13 00030 BEQL 3 
0c BC 04 AE B60 000 $ MOVW LOC _BUFFER+4, @LINE_WIDTH 3; 05 
04 6C 91 00037 3$ CMPB (APY, #4 : 0532 
OA Ff th BLSSU 4$ ; 
10 AC re 003C TSTL 16( AP) ; 0534 
05 13 0003F BEQL 4$ : 
10 BC 06 AE BO 00041 MOVW LOC_BUFFER+6, @LINES_PER_PAGE ; 0536 
50 01 DO 00046 4$ MOVL #1,~RO ; 0538 
04 00049 RET ; 0540 


; Routine Size: 74 bytes, Routine Base: _LIBSCODE + 0000 


; «285 0541 1 !<BLF/PAGE> 
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SCRSMISC SCRSMISC = Misc. routines for the screen packag 16-Sep-1984 29:5 AX-11 Bliss-32 V4.0-74 
vee L SET_OUTPUT = Set Terminal or Screen Butfer® 12-808- 132 96:92:24 VMSLIB.SRC Scams psec 
7 ZSBTTL "LIBSSET_OUTPUT = Set Terminal or S$ Buf f f t . 
8 GLOBAL ROUTINE CIBSSET_OUTPUT ( ee ee ee 
89 CHAN : REF VECTOR C rs 
90 FILE_SPEC _ : REF BLOCK C,BYTE 
91 USER_ROUTINE : REF VECTOR [,LONGJ, 
9 USER_ARG : REF VECTOR L,LONGJ, 
9 STREAM REF VECTOR L,LONG 
9¢ = Ben 
36 ; FUNCTIONAL DESCRIPTION: 
9 i This routine sets up a device to receive output. If this is 


| 


9 the first call, obtain device characteristics. 

If this is the first call for the screen than a screen 

control block is allocated, a channel is assigned, device 
characteristics are obtained. If it is an unknown device then 
the channel is deassigned (no Q10 output). a e 

spec} {ices ton is present and no user routine is declared then 
the file is opened via RMS. 


RAN ZS 


oO 
“ 


At output time the user-supplied routine, if present, will be 
called with the following parameters: 


AP ==> 4 
Optional user mang tee argument. 
Address of channel number (0 if none) 


~~ tt OOO 
ARAN SSR Ne 


Address of string dsc to output 
Address of stream number 


16 

17 

\8 CALLING SEQUENCE: 

20 ret_status.wic.v = LIBSSET_OUTPUT (CHAN.rw.r 

21 -FILE_SPEC.rt.dx 

$$ -USER_ROUTINE.zem.rp 

-USER_ARG.rl.r 

5 /STREAM.wl.rJJJ) 

6 FORMAL PARAMETERS: 
CHAN. rw.r Address of stream number. 
FILE_SPEC.rt.dx Oop tonat. Address of descriptor of 

file specification. 


1G9.09 09 09 09 CD 09 09 00 INI NSS SNS NS SSSI PAPA AAA AAA UMMM EPL OD 


OOooowovnnd 


USER_ROUTINE.zem.rp Optional. Address of output routine to 
call for output. 


SSLFEARFUSLSSON 


USER_ARG.rl.r Optional. Address of argument to be 
passed to user-specified output routine. 
STREAM. wl.r Optional. Address of longword to 


receive previous stream, 
IMPLICIT INPUTS: 


Se ee eS SS» “Wy 
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SCRSMISC = Misc. routines for the screen packag 16-Sep-1984 02:29:5 AX-11 Bliss-32 V4.0-74 
LIBSSET_OUTPUT = Set Terminal or Screen Butfer® 12-808- 1382 96:92:2 VMSLIB SRESSCAMI SC Boos 
599 1! NONE 
6 { 1! 
601 1 ! IMPLICIT OUTPUTS: 
6 § 1! 
6 1! NONE 
eRe 1! 
oR? : COMPLETION STATUS: 
O07 : SS$_NORMAL Normal successful completion 
B08 ! SIDE EFFECTS: 
gr 1! NONE 
O16 1 !-- 
6135 1 
0614 BEGIN 
0615 
0616 UILTIN 
0617 ACTUALCOUNT 
0618 ACTUALPARAMETER, 
0619 CALLG ; 
0620 
0621 LOCAL 
06 ¢ NEW_CALL_LIST : VECTOR (6) ; ! More be one longword Longer 
06 ' than maximum number of 
0624 ! arguments to this routine. 
0625 
0626 + 
0627 ! Constuct a new call List which is our original call List including 
be 8 the number of arguments. 
Re , = I FROM ACTUALCOUNT‘) TO 0 
0632 BEGIN 
06 NEW_CALL_LISTC.1] = ACTUALPARAMETER(.1) ; 
0634 END; 
0635 
904) + 
¥at4 } Promote the CHAN argument to by-value in our new call List. 
0639 NEW_CALL_LISTC1) = ..NEW_CALL_LISTC1) ; 
dee RETURN ( CALLG ( NEW_CALL_LIST, SCRSSET_OUTPUT )) ; 
§ee8 END; ! End of routine LIBSSET_OUTPUT 
000 0 -ENTRY L1pSSEr OUTPUT. Save nothing 
af 18 § 8 SUBL2 #24, SP 
5 6 A MOVZBL (APS, I 
6 INCL 
05 1 A BRB $ 
6E40 6040 00 ¢ 1$: MOVL AP)CIJ, NEW_CALL_LISTCIJ 
F 50 F4 00011 2$: SOBGEQ I, 1 
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MOVL 
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ANEW _CALL_LIST+#+4 
NEW_CALL_CIST, Scr 
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serene SCRSMISC = Misc. routines for the screen packag 18-Sep-19 4 96:67:21 AX-11 Oi react V4.0-742 Page 4 
- J - Stop Output to Terminal or Sc 14-Sep- 254: . -832; 
v04-0 LIBSSTOP_OUTPUT = Stop Output to Terminal Sc 14-Sep-1984 4:4 VMSLIB.SRCJSCRMISC.832;1 (5) 
; 391 645 1 ZSBTTL 'LIBSSTOP_OUTPUT - Stop Output to Terminal or Screen Buffer’ 
; ong 1 ! GLOBAL ROUTINE”LIBSSTOP_OUTPUT ( 
; 39 647 1! CHAN : REF VECTOR C,WORD) 
4 94 64 1! Y= 
> 395 649 1 !+4 
3 2 $31 : FUNCTIONAL. DESCRIPTION: 
: 28 8 § } This routine deaccesses a stream established for output. 
3 rey 0684 : CALLING SEQUENCE: 
5 + 5 
3 rt 0387 : } ret_status.wlc.v = LIBSSTOP_OUTPUT (CHAN.rw.r) 
; 404 658 1 ! FOAMAL PARAMETERS: 
; 405 0659 1! 
: 406 9660 1! CHAN. rw.r Address of channel number 
; 407 0661 1! 
; 408 0662 1 |! IMPLICIT INPUTS: 
; 409 0665 1! 
; 410 0664 1! NONE 
: 411 665 1! 
3 $i¢ 666 1 ! IMPLICIT OUTPUTS: 
3 61 0667 1! 
3 416 0668 1! NONE 
: 415 0669 1! 
; 416 0670 1 ! COMPLETION STATUS: 
: 417 0671 1! 
: 418 0672 1! SS$_NORMAL Normal successful completion 
; 419 0673 1! 
; 420 0674 1 ! SIDE EFFECTS: 
: 421 0675 1! 
: 422 0676 1! The channel or ISI is deassigned. 
s 625 0677 1 !-- 
> 426 0678 1 
; 425 0679 1 !+ 
: 426 0680 1 ! Equate to SCR$ entry point. 
3 rt 0681 1 !- 
: 428 0682 1 
; 429 068 1 GLOBAL BIND ROUTINE LIBSSTOP_OUTPUT = SCRSSTOF_OUTPUT ; 
: 430 0684 1 !<BLF/PAGE> 
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SCREEN_INFO = Get Screen Information ° ~3007 138% 96:92:24 VMSLIB SRESSCRMY Se Boe 
XSBTTL 'SCRSSCREEN_INFO = Get Screen Information’ 
GLOBAL ROUTINE SCRSSCREEN_INFO ( 


, CONTROL BLOCK : REF BLOCK C,BYTE] 


i FUNCTIONAL DESCRIPTION: 

: This routine obtains information about the current output 
| pergees It returns this information in the user-specified 
i CALLING SEQUENCE: 

} ret_status.wic.v = SCRSSCREEN_INFO (CONTROL_BLOCK.wab.r) 
FORMAL PARAMETERS: 

CONTROL_BLOCK.wab.r Address of buffer to receive information 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

} NONE 

COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

: SIDE EFFECTS: 

NONE 


OCAL 
DEV_TYPE, ! Device type 


STATUS, 
TCB : REF BLOCK C,BYTE) ; ! Address of current terminal 


' control bloc 


STATUS = SCRSSGET_TYPE_R3 (-1; TCB, DEV_TYPE) ; 

! Get current terminal control block 
IF NOT .STATUS THEN RETURN (.STATUS); 
CONTROL BLOCK CSCRSL_FLAGS] = 0 ; ! Preset to zero 


IF_.DEV_TYPE NEQ UNKNOWN 
THEN 
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BEGIN 
IF .DEV_TYPE NEQ VTFOREIGN 


CONTROL_BLOCK CSCRSL_FLAGS) = 
-CONTROL_BLOCK CSCRSL_FLAGS] OR SCRSM_SCREEN ; 
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0766 


_INFO, Save R2,R3 
_R3 
BLOCK, RO 


STATUS, 2$ 
CONTROL 


#1, RO 
SCRSS$GET_TYPE 
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-ENTRY SCRSSCREEN 


QUO BUNS COBO SURO 
oooocoernceceneen 


SOSOSCSOSOSOSSOSOSOSOOSOSOOSOSOSOOSOSSoOSOoSO 
COOCCCOOCOCOCOOCOOCOOSOOOOOOOCOSO 


VLWOCOTMMe MOOOWOu Ou Ou O41 OuCO 
a ee 
So 
HOO VOCNDOKUIM BH KOMEN OWON OW 
COM LOMOMOO ££ ENE NE MEK NK NO 


o 

o w ovuwre 

o Oo oo vo 

o 

o 

o 

o 

So 

o 

Co wo Tr COOK eK NRK Me TKN OO 

wo ww So OsEENOOOCOCOCOCOCOCOoOooONMm 
ow 
oo 


ee a ae 


COWOwWOwWOwoovwo 


setae 
; Routine Size: 


; SNS 


- routines for the scr 
= Get Screen Informat 


Routine Base: 


0768 1 !<BLF/PAGE> 


F 
tg mach Hf 


04 00069 2$: 


-LIBSCODE + 0069 


19 
eo- 
=Sep- 


1986 98:82:25 


RET 


AX-11 Bliss-3 & 
VMSLIB.SRCJSCRMISC.B 


Ens 


SCRSMISC = Misc 
SERSSCREEN INFO Page 14 


; 0767 


te et at et ot ot ot os ot tt 


10 
SCRSMISC CRSMI 1 “ 
voe-000 ERSSE ; ve 
1 7 ZSBTTL 'SCRSSET OUTPUT = Establish Terminal for Output’ :] 
1 7 GLO ROUTINE SCRSSET_OUTPUT ( | 
1 7 STREAM VECTOR C wont 3 3 
7? FILE SPEC REF BLOCK C,6YTE 2] 
77 USER-ROUTINE : REF VECTOR [,LONGI, : 1 
774 USER_ARG REF VECTOR [,LONGJ, 37 
4g OLD_STREAM REF VECTOR L,WORD 3 } 
2 553 1+4 be : 1 
ah ! FUNCTIONAL DESCRIPTION: 
7e0 i This routine sets up a device to Ang be output. If this is 
f 1 the first call, obtain device characteristics. 
33 He If this is the first call for the screen than a screen 
5 84 control block is allocated, a channel is ees igned. device 
5 characteristics are obtained. If it is an unknown device then 
é the channel is deassigned (no Q10 output). If a file 
spec iT ication is present and no user routine is declared then 
5 the file is opened via RMS. 
At output time the user-supplied routine, if present, will be 


called with the following parameters: 
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OUTPUT = Establish Terminal for Output» 1 ~3007 138% 96:92:2 VMSLIB.SRCISCRMISC.B32¢1 Se (7) 
TTL C 
BAL U 
| 


WO CON VEWIY-O0ONOu PWM ODO WOU PUR O00 MOON NR DOD 


Oo 
oo 


IMPLICIT INPUTS: 
NONE 


7 
7 
785 
786 
787 
788 
53 789 
53 790 
53 791 
54 re 
54 79 AP ==> 4 
54 794 Optional user supplied argument. 
54 795 Address of channel number (0 if none) 
54 796 Address of string dsc to output 
2 444 Address of stream number 
¢¢ 4 CALLING SEQUENCE: 
54 801 ret_status.wic.v = SCRSSET_OUTPUT (STREAM. rw.v 
55 80 -USER_ROUTINE.zem.rp 
55 804 re R_ARG.rl.r 
55 805 /OLD_STREAM.wl.rJJJJ ) 
55 806 
55 807 FORMAL PARAMETERS: 
2s 808 
¢2 +48 STREAM. rw.v Stream number. 
3 39 0811 FILE_SPEC.rt.dx Optional. Address of descriptor of 
5 56 pats file specification. 
3s 36 814 USER_ROUTINE.zem.rp Optional. Address of output routine to 
; 207 312 call for output. 
; 565 19 USER_ARG.ri.r Optional. Address of argument to be 
; 208 + passed to user-specified output routine. 
; ep OLD_STREAM.wt.dx Optional. Address of longword to 
3 : 4 
3 825 


“Ns 
= 


~“ 
wr 


receive previous stream. 
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SCRSMISC SCRSMISC = Misc. routines for the screen packag 16-Sep-1984 02:29:5 AX-11 Bliss-32 V4.0-742 Pa 16 
$00,000 SCRSSET_OUTPUT = Establish Terminal for output: 127808-1 382 96:92 :2k VMSLIB.SRCISCRMISC.B32¢1 ” (7) 
; 574 § 1! 
: t? ! IMPLICIT OUTPUTS: 
; r : NONE 
: 3 1 | COMPLETION STATUS: 
; 1 8 § SS$_NORMAL Normal successful completion 
: oR 835 1 | SIDE EFFECTS: 
; 584 8 | 1! 
: 38 B36 | | see: 
: 587 0839 1— 
GS 48 lee 
: 350 OB4¢ BUILTIN 
; 591 84 NULLPARAMETER; 
3 238 0844 
s 59 0845 ! $SFIND_TCB 
; 594 Bees ! This macro searches down the threaded List of TCB's trying to find 
; 595 084 ! the one whose SCRSL_STREAM field matches STREAM. If found, FOUND 
; 596 0848 ! is set to the matching TCB address. If we run off end of threaded 
3 rd Base List before finding match, FOUND is set to 0. 
: 599 m 0851 2 MACRO — $FIND_TCB (FOUND) = 
; 600 ™ O88 IN 
; 601 M 085 NEXT = .SCRSL_FLINKHEAD ; ! Initialize to Ist 
; 60 M 0854 
; 60 m 0855 '¢ 
; 604 M 0856 !' Search down chain of TCB's until we reach the one whose 
: 605 M 0857 ! SCRSL_STREAM field matches STREAM or reach end of chain 
; 606 M 0858 ! (indicated by a zero forward Link). 
; 607 m 0859 !- 
; 608 m 0860 FOUND = 0 ; ! Init to not-found 
3 609 M 0861 WHILE .NEXT NEQ 0 
: 610 i] trad 
; 611 M 086 BEGIN ! Search for desired TCB or end of list 
H olg M baee IF .NEXT CSCRSL_STREAM) EQL .STREAM (0) 
3; 61 M 0865 THEN 
: 614 M iF §: BEGIN 
3; 615 M 086 FOUND = .NEXT ; 
3 238 M 0868 EXITLOOP ; ! Break out of search Loop 
2 at: "6 
; $19 M 0871 NEXT = .NEXT CSCRSL_FLINK] ; ! Advance potater down chain 
5 ? . Le: END ; ! Search for desired TCB or end of List 
: 6 i 4 6 7% END; 
; ° Z e %; ! End of macro $FIND_TCB 
: 625 us LOCAL 
; 6 § 8 FOUND : REF BLOCK C, BYTE), ' Pointer to Terminal Control 
3; 6 7 ' block used by SFIND_TCB 
; 6 3 0 NEXT : REF BLOCK C,BYTE], ' Pointer to Terminal Control 
ie 1 ' block used by SFIND_TCB 
; 6 2 TCB : REF BLOCK C, BYTE) ; ! Pointer to a Terminal Control 


SCRSMISC SCRSMISC = Misc. routines for the screen packa 14-49 Sep-1984 02:29:5 AX=-11 Bliss-32 V4.0-742 P 7 SCR 
900.000 SCRSSET_OUTPUT - Establish Terminal for output: 14- ~300 71387 ¢: 74 VMSLIB_SRCISCRMISC.B32¢1 ~~ d von 
1 ; ! block 
5 THe CUROUTPUT EQL 0 ! If no current TCB 
$ BEGIN ' No current TCcB 
3 SFIND_TCB (FOUND) ; 
H END ! No current TCB 
Hy BEGIN ' Current TCB exists 
4 £36 TCB = .SCR L_CUROUTPUT ; 
4 089 FOUND = ,TCB; 
4 894 IF .TCB CSCRSL_STREAM] NEQ .STREAM (0) 
4 95 THEN 
4, 539 BEGIN ! Not the one we want 
4 G SFIND TCB (FOUND) 3 
0898 END; Not the one we want 
+344 : ! Ee | TCB exists 


'¢ 
i Reach here when we have found desired TCB or have exhausted chain. 
_Decide which, and treat appropriately. 


i ated EQL 0 
BEGIN ! Ran off end of List, must build new TCB 


LOCAL 
TyPE, ! Device type returned by GET_CHAR 
AREA, } pe ger 'ze * page width 
TOT_SPACE, ' Total buffer space te get from GET_VM 
STATUS, ! Status for subroutine calls -- 
i returned to user if not success 


ey PPPPIMVIPS IMM SSK Sse 
PPA & 


661 

66 | 
66 LOC_DESC : BLOCK (8, BYTE] ; ! Local fixed-length string 

re F i descriptor. | 
086 _ If exit handler hasn't been established, do it now. 

668 iF .SCRSEAITBLOCKL1) EQL 0 

669 THEN 

670 BEGIN ! Set up exit handler 


LOCAL 
‘ hecet) used status 
sense i Biot ria: EXIT HANDLER : 


S$; 
TAs = $DCLEXH c DESBLE SCRSEXITBLOCK(0])) 


NEN” 
RETURN (. . STATUS ); 
ND; ' Set up exit handler 


14 
‘ Allocate space for a new TCB 


if “1 (STATUS = LIBSGET_VM ( ZREF (SCRSC_SIZE), TCB )) 
RETURN (.STATUS) ; 
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- routines for the screen packa 18-50 Sep-1984 9:5 AX-11 
- Establish Terminal for outpute Sep-1984 ¢: gz: 23 VMSLIB 


_Clear new TCB to zero and Link it into our chain of TCB's 


cus LL SCRSC_SIZE, TCB CSCRSL FLINKI) : 
TCB StRSL” Or ia = .SCRSL_FLINKHEAD ; | This TCB's forward 
' pointer = current 
! List header contents 
SCRSL_FLINKHEAD = TCB CSCRSL_FLINK] ; List peed points to 
' new 


TCB CSCRSL_STREAM) = .STREAM CO] ; ! Plug in stream id 
TCB CSCRSL_BUFSIZ) = BUFSIZE ; ! Buffer size we'll use 


set up optional arguments 
IF NOT NULLPARAMETER (5) 
OLD_STREAM [0] = ‘ a SE RSLCUROUTPUT EQL 0 

ELSE .SCRSL_CUROUTPUT CSCRSL_STREAM]) ; 
SCRSL_CUROUTPUT = .TCB ; ! Establish this TCB as current 
TCB CSCRSL_RTNADDRI = ( th tenets (3) 

ELSE USER_ROUTINE [0] ) ; 

TCB CSCRSL_RTNARG) = ( if NULLPARAMETER (4) 


N 
ELSE USER_ARG [0] ) ; 
r £ svepi ted a file spec use it, else use default filespec 
DSC$B_CLASS 


e 

S$ 

C = 0D 
C CDSC$B-DTYPE] = D 
NULLPARAMETER (2) 

I 

N 


ee) ee ee 


eg ! User~supplied file spec 


(STA 
LIBSANALYZE _SDESC_R2 ( pile SPE 
C_DESC 
tote DESC w 
THEN 
RETURN (. . STATUS ) 
1 User-supplied file spec 


' Use default file s apec 

DESC osc su LENGTH] = ZCHARCOUNT (‘SYSSOUTPUT') ; 
SC CDSCSA_POINTER] = UPLIT ( BYTE (*SYSSOUTPUT' ))° 

END; ! USe default file spec 


'¢ 
i Assign a channel 
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SCRSSET_OUTPUT = Establish Terminal for Outputs if: sen 1984 9659232 VMSLIB.SRC e§schmise oases 
4 if NOT (STATUS = LIBSASSIGN ( LOC_DESC, TCB CSCRSW_CHAN] )) 
+ RETURN (.STATUS) ; 
1+ 
3 i Determine type of terminal and if known type get a re 
i overs flag number to use while te I Q10's to it. If w 
0 i. can't get an event flag number, qui 
6 GET_ me ( ,TCB, TYPE ) ; 
0 va!" PE NEQ 0 
5 BEGIN ! Known type 


STATUS ; ' Local status 
IF NOT (STATUS = LIBSGET_EF ( TCB CSCRSL_EFNJ)) 
RETURN (.STATUS ) : 


RETURN ( SSS$_NORMAL) ; 
END; ! Known type 


aes here if unknown terminal or not a terminal -- deassign 
i. QI0 channel. 
If NOT (STATUS = $DASSGN ( CHAN = .TCB CSCRSW_CHAN])) 
RETURN (.STATUS ) ; 
TCB CSCRSW_CHAN] = 0; ! Clear channel number 
is -TCB CSCRSL_RTNADDR] EQL 0 


BEGIN No ysgrcgeec ttled call back 
ca NULLPARARETER (2 


BEGIN ! Filespec supplied 
LOCAL , ™ 


Ce ne a eee wwe elo lololelololelelelelolololololololololo! 


FF AWWAMIAIMI AAAI PINMIPINPINPIPONNYDN 4 St OS OS OO SO 


LENGTH, ' returned by LIBSANALYZE SDESC_R2 
sane i | peer, fe roturnee by LIBSANALYZE_SDESC_R2 
IF NOT (STATUS = “ TBSanatyzes VSDESC -R2 ( .FILE SPEC ; 
SDR 9S 


THEN 
RETURN ( .STATUS ) ; 


IF NOT (STATUS = CREATE ( TCB CSCRSL_FLINK], LENGTH, 
ADDR )) 
THEN 
ehh (.STATUS ) ; 


END ; Filespec supp Lied 
END ; No user-specified call back 
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: Allocate and initialize map buffers necessary to emulate 
: prvenced VO] features when outputing to hardcopy, disk, or 
' Lim Ss. 


ia contiguous space composed of Fee following parts is allocated: 
Name Size 


character map area = device length * width 
attribute map area 
modified map area/&8 + 1 (bit map size in bytes) 


EA = .TCB CSCRS$W_DEVPAGSIZ) * TCR CSCRSW DEVWIDTH) ; 
T SPACE = (. AREA7ZBPUNIT) + 1+ (2 * AREA) ; 
NOT (STATUS = LIBSGET_VM ( TOT_SPACE. TCB CSCRSL_CHARMAP) )) 


N 
RETURN ( .STATUS ) ; 


B CSCRS$L_AREA) = .AREA ; 

SFILL (20° *, .AREA, .TCB CSCRSL_CHARMAP]) ; 
! space fill character map 

8 CSCRSL_ATTRMAL] = .1CB FSCRsL_CHaRMA) + AREA ; 

B CSCRSL-MODFMAP) = .TCB CSCRSL~CHARMAP] + (2 * .AREA) ; 

SFILL (O07 .TOT_SPACE = .AREA, .TCB CSCRSL_CHARMAP] + .AREA) ; 
! zero fill attrmap and modfmap 

a FSCRSL_LINE3 =1; 

B SC 


R$L_COLUMN) = 4 
' Ran off end of List, must build new TCB 


BEGIN ! Found desired TCB 
Reach here when we have found the TCB we want. 
iF NOT NULLPARAMETER (5) 


OLD_STREAM CO) = .SCRSL_CUROUTPUT CSCRSL_STREAM) ; 


! Record which one found 


ELSE USER_ROUTINE (OJ ) ; 


TCB CSCRSL_RTNARG] = ( IF A LPORAEE TER (4) 


ELSE USER_ARG [0] ) ; 


END; ! Found desired TCB 
RETURN (SS$_NORMAL) ; 
END; 


: End of routine SCRSSET_OUTPUT 


1 
I \SYSSOUTPUT\ 
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-EXTRN SYSSDCLEXH, SYSSDASSGN 


OFFC 00000 ENTRY SCRSSET OUTPUT, Save R2,R3,R4,R5,R6,R7,RB,- ; 0770 
B 000000006 06 H 092 MOVAB SCRS$L_CUROUTPUT, R11 : 
A 000 0 G E MOVAB SCRSL~FLINKHEAD, R10 : 
9 000 ' FF 9 19 MOV SCRSERITBLOCK#4, Ro : 
5 0 ¢ 1 SUBL2 #32, SP : 
4 68 p 1A Mov SCRSL_CUROUTPUT. R2 + 0885 
50 A D O01 MOVL § SCRSL_FLINKHEAD, NEXT : 0888 
3 04 2 CLRL FOUND F 
20 esa : 
30 Ad 046 AC 10 06 FO 0 § CMPZ7V #0, #16, STREAM, 48(NEXT) : 
2B OO2F BEQL 4$ : 
50 60 pO 00031 MOVL (NEXT), NEXT : 
EE 11 00034 BRB 1$ : 
04 AE DO 00036 28: MOVL  R2, TCB : 089 
51 04 AE DO O003A MOVL  TCB, R1 : 089 
53 51 DO 0003E MOVL Ri, FOUND : 
30 Al 0 at 10 00 ED 8004 CMP2V #0. #16, STREAM, 48(R1) + 0894 
1¢ 13 00048 BEQL ; 
50 6A dd OO04A MOVL § SCRSL_FLINKHEAD, NEXT : 0897 
3 D4 00040 CLRL FOUND : 
30 DS OOO4F 3S: TSTL NEXT : 
13 13 00051 BEQL 6 ; 
30 Ad 04 Ac 10 00 £5 00053 CMPZ2V #0, #16, STREAM, 48(NEXT) ; 
05 iH 0005A BNEG : 
53 50 DO 0005C 4s: MOVL NEXT, FOUND : 
05 11 0005F BRB : 
50 60 DO 90061 5$: MOVL (NEXT), NEXT : 
£9 11 00064 BRB 3 : 
3 D3 0066 6$: TSTL FOUND + 0905 
03 13 000 BEQL 86 7$ ; 
01A9 31 006A BRW 28$ ; 
69 d3 06D 7$: TSTL CRSEXITBLOCK+4 : 0920 
18 1 O06F BNE $ ; 
69 0000v CF 9E 00071 MOVAB EXIT_HANDLER, SCRSEXITBLOCK+4 > 0925 
08 A 0C AY 9E 00076 MOVAB SCRSC_EXITSTS, SCRSEXITBLOCK+12 + 0926 
FC OAD OOF 0078 PUSHAB SCRSERITBLOC : 0927 
000000006 00 oI FB 0007 (ALLS #1, SYS$DCLEXH : 
01 0 0 BLBS STATUS, ; 
4 AE 9F 00089 8S: PUSHAB 1¢8 > 0935 
04 AE 8 8F 9A 0008C MOVZBL #120, 4(SP) : 
04 AE 9F 00091 PUSHAB 4(SP5 ; 
000000006 9 F 94 CALLS #2, LIBSGET_VM : 
5 D 98 MOVL RO, STATUS ; 
5 Hi BLBS statu , ; 
014 A BRW 6$ : 
57 04 AE DO O00A4 98: MOVL cB, R? > 0942 
0078 =F 00 bE 0 C AB MOVCS #0, (SP), #0, #120, (R7) ; 
67 6A D B MOVL SCRSL FLINKHEAD, (R7) > 0943 
6A 7 D0 B MOVL  R7, SERSL_FLINKHEAD > 0946 


N 10 
SCRSMISC = Misc. routines for the screen packag 16-Sep-1984 29:5 AX-11 Bliss-32 V4.0-742 
SCRSSET_OUTPUT = Establish Terminal for output: 12-808- 1382 96:92:24 YUMSLIB SRE ISCAMISC BS201 


w 

YO 
=s 
55 
os 


LLL CC CC CC CC CEE ELE EEE SCO OO 


O-o f°) cor o~reo Oor-o Al ~~ rn ~ wm 
TT ae ee SS 233 SS ee 3 ee 
ooo o oooo ooo oooo oO ooo°ooo - - -— 
a i an en i i i i i i i i i i i i ee ee eh ee eh eh eh dh dt a a 
N 
So - a 
a = 1 
a i) wr 
. Lol Oo ™N ” + 
-_ s2 a + uw (=) 
~ > oS ve a wv ” z rv 
re a wa . ” ow = ww o wa 
en - [+ ome w Oo ww qm! ww "a — a ‘ 
—e > wo za <c a w MWA w it ” A << — A 
aoa So ow 1 —_ o~ | ™MNMOWWs— OW ANNO = Ww 
ww a aw tu eT ~u v>rQ Qf © <zo- i om 
ow 2 aeam Saw oreorw wie 1 vw WR i A 
oN BS =) ‘jc ® ows <z~ #8 $3<ss . S& W@Oat + - @s. 
= ~ ' -~Oov ~ «co ~ <zmo OZ-O04 J > Wet w am 
@e2s G@& oeuw + a me 2 Oss A xnu4D> -“ajND> oO ~uI> 
wun =< A « —~ << <= a << < on Aa we _ ~ 6 mw ws cc 
&-AM~ORow PA~ + AH~OR GHW AH~R Hw AS*sMISHID + + -WMORCewY + -CH AaAAmw~ -<e 
ENE OONMVOO e- DOR. LMOVUTFOM MO LOOR-. ODMNON LOY OH HOE NUE OK HM ONO PR ee EO 
i hc eh eel eS ed el el ed ee ae ST. Creme) fe eet, Tm ee See ee Stat ee Te al 
awa 
NNOMIIISOY 4UBIOMIGY Y4IONIGY JugBsOvyssy 434M Bet TIE rrTyIIr wT 
>rowr-SO>wtOrrr0 OF we Or ro Oe we Oo rr Hs OP O> > ro 3 SP PHY) UOMO UI OuN UOs 
ZEVO-OZOYOTTE VO- OC OFZZ VO OY OTE ZEOO+-@ME “$ZSELOOZZAA GFZ MOA0-OACHOHD 
PAA fe AA Fr AA AA A 
o-m mm ww oOo ro Co -— 
Se oe r- ee r- eer Nm ™~w 


OO FOS BWW T DVL WTP O DOK MO Oe EO OR TF OP. DWE MDVOPMNO LOMO OOMODOOCNWMLUu 
BOVVVVVVA 0 C00 OWWwwwws & uw wre OO See ee FTTFTTNNNUNN OOOO O 


VBVVK— LUMO — OOO KUNST OOK ENNIS OOO LU NMOOOOC0CO— OW & DOC ue OOM OO 
MINEO O-- O-- OF ODOC — Or OF OOO OF OB OOOO — BO Or ODOUMOACOCO uu OWO Ou Oe Ou wm 


Vu VOU OFTOTF OOP OMY TOT VOOM TOT VOL VOU DVOORK— VOW eu WOO Wwe fk Oe 
I00-— <—- DOM AMMO LOMO ANOO LOMO INO OVE aetna, ‘tenn ZOMM eNO dee COMw 


oS 
o o 
Oo 
wo ~w oOo vv =) So Oo w ao wo wow @ ao @ 
oo - val oOo oO - - Oo o oo Qao- o ow 
~N - oOo w 
oOo Oo oS 
o 
o 
So 
Qo 
nw oOo ovwam or-w orwt So Owwo ww owaoo ive om 
<z<<o wn MNoOoo WisoO Wncteto WwW wMdceto ace owmw Vv oo 
o > Oo 
ow wv cs] vet aw @ow So So So 
mT - ~_ Me -—— -— oS oS oS 
ee Pe 
So =] 
Ss S 
=] 
o o 


11 
SCRSMISC SCRSMISC = Misc. routines for the screen pack 6. -1984 229: AX-1 iss-32 v4. 
y0e2008 SCRSSET_OUTPUT = Estentish Terminal for output: ~300n 138% 96:92:32 Waseda satis 1g 7 i , cet Aas 


4 001 $: RET : 1017 ; ] 

7 08 a7 3¢ 174 Ate MOVZWL 8(R7), =(SP) t 1024 > | 
000000 30u Q 1 F 1 CALLS #i, SYSSDASSGN : . ; ) 
D Vee MOVE RO. STATUS : : | 

6 E9 001 BLBC TATUS, 26$ : 3 3 

08 A? B84 001 CLRW (R7) : 1028 ; 1 

A? DS 00187 TSTL g(R7) + 1030 31 

30 1 18A BNEQ 25$ : ; 7 

02 gC 91 0018¢ CMPB (AP), #2 + 1073 31 

B iF OO18F BLSSU 5$ : 3} 

08 AC 05 00191 TSTL (AP) : 31 

50 08 ee M 136 Boyt she SPEC, RO + 1040 
000000006 96 1 19A JSB LIBSANALYZE_SDESC_R2 : 33 

10 AE 1 DO 001A0 MOVL 1, LENGTH : 31 
OC AE 38 DO 001A4 MOVL  R2, ADDR : 31 
0D 2 E9 O1A8 BLBC STATUS, 24$ : 31 

Oc AE SF OO1AB PUSHAB ADDR + 1046 2) 

14 AE OF OO1AE PUSHAB LENGTH : 1 

57 DD 90181 PUSHL R : 31 

0000v CF 03 FB 0183 CALLS #3, CREAT : 31 
01 50 £8 O01BB 248: BLES STATUS, 258 : He 

56 OE a7 3C ett 25$:  MOVZWL 14(R7), AREA + 1065 37 

50 OC a7? 3C 001C0 MOVZ2WL 12(R7), RO : 1 

56 50 C4 00104 MULL2 RO, AREA : : 1 

50 56 08 c7 001¢7 DIVL #8, AREA, RO : 1066 71 
14 AE 01 A046 3€ 001 ¢B MOVAW  1(RO)CAREAJ, TOT_SPACE : 31 
18 A? 9F 00101 PUSHAB 24(R7) + 1067 71 

18 AE 9F 00104 PUSHAB 9 _SPACE ; : 1 

000000006 98 FB O17 CALLS #2, ~LIBSGET_VM : 71 
50 DO O01DE MOVL 0 TUS : :] 

58 £8 0011 BLBS § STATUS, 27$ : 31 

58 DO OO1E4 26$:  MOVL STATUS, RO + 1069 31 

04 OO1E7 RET : 7 

56 DO OO1E8 27$:  MOVL AREA, 20(R7) + 1071 31 

09 2c bore MOVCS #0, (SP), #32, AREA, @24(R7) : 1072 : } 

46 9E O01F3 MOVAB @24(R7) AREA], 98 (R7) : 1074 71 

46 3 01F9 MOVAW @24(R7)CAREAJ, 32(R7) : 1075 71 

56 ¢ O1FF SUBL3 AREA, TOT_SPACE, RO : 1076 31 

00 2C 00204 moves #0, (sP),“#0, RO, @24(R7)CAREAI ; i. 

ot D Of MOVL #1, 36(R7) : 1078 31 

1D MOVL #1. 40(R7) : 1079 3:1 

461 14 BRB 36§ : 0905 31 

6c 91 1 288: CMPB  =s«C AP), #5 : 1088 31 

OA 1F 1 BLSSU 29$ : 31 

A p 1B TSTL QAP) : 31 

0 1 BEQL $ ; 21 

A2 8B MOVW 8(R2), @OLD_STREAM : 1090 31 

53D 298 MOVL FOUND, TCB : 109 3% 

Ag D 9 MOVL cB, 0 : 109 31 

5 p D MOVL R SCR§L_CUROUTPUT ; 71 

6¢ CMPB (AP), # : 1095 31 

5 iF BLSSU ; 7 

AC D5 STL  12¢AP) ; 31 
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yoa2000 SCRSSTOP_OUTPUT = Stop Output to Terainel oF Hs 127808-1382 96:92:24 VMSLIB.SRCISCRMISC.B32¢1 ° BS 
; £28 1107 1 &SBTTL "SCRSSTOP eyTeur - stop Output to Terminal or Screen Buffer’ 
; Rep 1; 8 : GLOBAL ROUTINE SCR$STOP_OUTPUT = 
:; 859 1110 1 =! FUNCTIONAL DESCRIPTION: 
; 860 1111 1! 
; +d 13) ! This routine deaccesses current stream established for output. 
; He 1114 1°! CALLING SEQUENCE: 
; 864 1115 1! 
; 865 1118 1! ret_status.wic.v = SCRSSTOP_OUTPUT ( ) 
; 866 aw 2 
: 67 1118 1 =! FORMAL PARAMETERS: 
; 868 1119 1! 
: 869 1120 1! NONE 
; 870 1121 1! 
3; 871 11 1 ! IMPLICIT INPUTS: 
.. Sr Sian E 
: 87 1124 1! NONE 
: 874 1125 1! 
> 875 1126 1 ! IMPLICIT OUTPUTS: 
; 876 1127 1! 
s 877 1128 1! NONE 
:; 878 1163 1! 
; 879 11350 1 ! COMPLETION STATUS: 
; 880 1131 1! 
; 881 1132 1! SS$_NORMAL Normal successful completion 
; «488 1133 1! 
: 88 1134 1 ! SIDE EFFECTS: 
; 884 1135 1! : 
; 885 1136 1! The channel or ISI is deassigned. 
; 886 ee 1 le 
; 887 1138 #1 
; 888 1139 BEGIN 
; 889 1140 LOCAL 
; 890 1141 STATUS ' Status to return to caller 
; «891 1108 2 STATUS2, ! Temporary internal status 
3 o36 114 LAST : REF BLOCK C, BYTE), ! Pointer to a Terminal Control 
; 89 1144 ' block 
3 6894 1145 NEXT : REF BLOCK C, BYTE] ; ! Pointer to a Terminal Control 
3; 895 1146 ' block 
; 896 1147 
; 897 1148 LAST = SCRSL_FLINKHEAD ; ! Initialize to head of chain 
; 898 1149 NEXT = .SCRSC_FLINKHEAD ; ! Initialize to Ist 
: 586 118) 3 4 
: 901 1136 : Search down chain of TCB's until we reach the one that matches 
3 306 115 ! SCRSL_CUROUTPUT or reach end of chain (indicated by a zero forward 
: 90 1154 ' Link)? 
: 904 1155 !- 
; 905 1128 WHILE .NEXT NEQ 0 
3 ane 11 DO 
; 90 1158 BEGIN ' Search for desired TCB or end of List 
3 a8 1123 IF_.NEXT EQL .SCRSL_CUROUTPUT 
: aig 1103 EXITLOOP ; ! Break out cf search loop 
: 912 1188 LAST = .NEXT ; ! Remember last entry address 
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NEXT = .NEXT CSCRSL_FLINK] ; ! Advance pointer down ghetn 
END ; ! Search for desired TCB or end of List 
1+ 
} Reach here when we have found desired TCB or have exhausted chain. 
; Decide which, and treat appropriately. 
IF .NEXT EQL 0 
THEN 
BEGIN ! Ran off end of List 


STATUS = SSS$_NORMAL ; 
END ! Ran off end of List 


ELSE 
BEGIN ! Located TCB we want 


i First order of business is to remove this TCB from chain. 
' Set previous entry's forward pointer to the contents of this 
entry's forward pointer. 


LAST CSCRSL_FLINK] = .NEXT CSCRSL_FLINK) ; 


1+ 
If a there is a channel involved ? 


iF .NEXT CSCRSW_CHAN] NEQ 0 
THEN 


BEGIN ! Channel involved 

NEXT CSCRSL_BUFFER] = 0; ! Turn off buffering 
14 
If scrolling active, turn it off. 


if .NEXT CSCRSV_SCROLL) EQL 1 
THEN 


BEGIN ! Scrolling was on 

NEXT CSCR$V_SCROLLJ = 0 ; ! Turn off indicator 

SCRSSET_SCROLL () ; ! Turn off scrolling in 
' terminal 

END ; ! Scrolling was on 


+ 
Now 'o deassign the channel 
STATUS = SDASSGN ( CHAN = .NEXT CSCRSW_CHAN]) ; 


4 
Deallovate the local Event Flag 


LIBSFREE_EF ¢ NEXT CSCRSL_EFNI) ; 
END ; ! Channel involved 


+ 
Check to see if a file is open 
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v0e~000 SCRSSTOP_OUTPUT = Stop Output to Term Thal or se Sc 12: “Sep ats 7 98: $2 VMSLIB.SRC SCRMYS C.B32;1 . & 
: 970 1221 IF .NEXT CSCRSW_IFIJ NEQ 0 
3; «971 1 § i THEN a 
3 are 1 4 BEGIN ! File open 
; O77 1224 4 LOCAL 
; are } 5 ; FAB : REF $FAB_DECL; ! otr to FAB 
; af : ? ? FAB = .NEXT CSCRSL_FABI; 
; 978 1229 4 CHSFILL £0. F s¢ BLN, .FAB ) ; ! lear FAB to zero 
: 979 1230 4 FAB LFABSW_IFI NEXT CSCRSW_IFI ; ' File IFI 
3; "30 1231 4 FAB FABSB 810 FABSC_B1D 3 : Identify block as FAB 
3; 68 1 ¢ 4 FAB CLFABSB BLN FABSC_BLN ; ! Length of FAB 
; 9 2 1 4 STATUS2 = gible" ( FAB = .FAB) ; ! Close file 
: 98 1234 4 IF .STATUS 
3; «6984 1235 4 THEN 
; 985 1 § 5 BEGIN ! free FAB and RAB pee ce 
; «98 1 2 LIBSFREE_VM (ZREF (RABSC BLN). NEXT CRS$L_4AB)); 
; 98 1238 LIBSFREE_VM (ZREF(FABSC_BLN), NEXT CSCRSL_FABJ); 
; 988 1578 4 END; 
; 989 1240 END ; ! File open 
; 990 1241 
; 991 stg '+ 
3 44 } rt Release buffer space if we have been using a character map. 
3 994 Se 3 IF .NEXT CSCRSL_CHARMAP] NEQ 0 
; 995 1246 3 THEN 
; 996 1247 4 BEGIN ! Free map 
3; 997 1248 4 LOCAL 
; 998 1249 & TOTAL_SPACE; 
3; 999 1250 4 ! 
3; 1000 1251 4 !' The attribute me was allocated cones queasy with the 
: 192) 1526 : character map. Be sure to free up bo 
3 1008 1254 4 ! Space composed of the following parts was allocated: 
3 1004 1255 4 { Name 
3 1005 1256 4 ! character map area = device length * width 
3. 1006 1257 4 ' attribute map area 
3 Ht \$28 ? ! modified map area/8 + 1 (bit map size in bytes) 
; 1009 1500 4 TOTAL SPACE = (.NEXT CSCRSL AREAL LEBPUNIT) + 1+ (2 * NEXT CSCRSL_AREA)); 
: 1010 1261 4 STATUS = LIBSFREE VM ( TOTAC_SPACE, 
3 1011 1 $¢ 4 NEXT rscrse’ _CHARMAP] ) ; 
7 \¢ 1265 4 IF .STATUS 
3 101 1264 4 THEN 
; oie : o BEGIN 
$ 44 3 126 "tons the TCB area itself 
3: 101 1268 5 i- 
3; 1018 1269 ? STATUS = LIBSFREE_VM ( ZREF ( SCRSC_SIZE), ! Length 
3: 1019 1270 NEXT ) ; ! base 
3; 1020 1271 4 END; 
: 19 1 ' 4 END ; ! Free map 
: 19 1274 '¢ 
: 1024 1275 i If status of $CLOSE was succ gece tut. return it, else 
: 18 ? ' A : return status of LIBSFREE_VM 
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SCRSMISC = Misc 1 Bliss- 0-74 
SCRSSTOP_OUTPUT = Stop Output to Terminal or Sc 14-Sep-1 VMSLIB.SRCJSCRMISC.832;1 
: 1027 127 IF .STATUS2 
: 10 8 1 8 THEN 
: 19 4 p STATUS = .STATUS2 ; 
: 19 1 ! ¢ END ; ! Located TCB we want 
: 10 ¢ 1284 SCRSL_CUROUTPUT = 0; 
> 1034 1285 RETURN (.STATUS); 
: 1035 1286 END; ! End of routine SCRSSTOP_OUTPUT 
.EXTRN SYSS$CLOSE 
OFFC 00000 ENTRY SCRSSTOP OUTPUT, Save R2,R3,R4,R5,R6,R7,R8,-; 1108 
58 000000006 00 9€ 90002 MOVAB SCRS$L_CUROUTPUT, R11 : 
5a 000000006 00 9 0000 MOV LIBSFREE_VM, R10 : 
5E C § 90019 SUBL2 #12, SP : 
57 000000006 00 : 0001 MOV SCR$L_FLINKHEAD, LAST + 1148 
08 AE 000000006 00 DO OOOIA MOVL § SCRSLTFLINKHEAD, NEXT + 1149 
50 08 AE D0 900 2 1$ MOVL NEXT, ~RO + 1156 
Of 13 00026 BEQL 2$ ; 
6B 50 01 900 8 CMPL RO, SCRS$L_CUROUTPUT > 1159 
09 13 00028 BEQL 2$ 3 
51 0 vd 900 D MOVL _—RO, LAST + 1163 
08 AE 60 DO 00030 MOVL (RO), NEXT + 1164 
EC 11 000 BRB 1$ + 1156 
56 08 AE 00 00036 2$: MOVL NEXT, R6 : 1171 
06 12 0003A BNEQ 3$ : 
58 01 p 003¢ MOVL #1, STATUS + 1174 
00B1 31 0003F BRW 8$ + 1171 
61 66 00 00042 3$: MOVL (R6), (LAST) + 1185 
08 AG 83 004 TSTW (R65 : 1190 
2A 13 00048 BEQL 5$ ; 
04 A6 D4 000A CLRL =—_- &((R6) : 1193 
0B 40 A6 Eg 004D BLBC 64(R6), 4$ : 1198 
40 A6 1 8A 00051 BICB2 #1, 64(R6) : 1201 
000000006 00 0 FB 099 CALLS #0, SCRS$SET_SCROLL + 1202 
E 08 Ab 3C 0005C 4s: MOVZ2WL 8(R6), -(SPY + 1209 
000000006 00 1 FB 069 CALLS #1, SYSS$DASSGN : 
59 0 pO 0006 VL RO) STATUS2 ; 
48 A6 9F OO06A PUSHAB 72(R6) > 1214 
000000006 00 01 F 0 $0 CALLS 4 L IBSFREE_EF ; 
34 Ab 8 4 5$: TSTW © 52¢R6) + 1221 
41 77 BEQL 6$ : 
57 70 Ab p 79 MOVL. 112(R6) FAB ; 1337 | 
0050 «BF 00 6E 0 C 0007D MOVCS #0, (SPS, #0, #80, (FAB) : 1229 
02 A? 34 AG 80 5 MOVW 52(R6) , 2(FAB) > 1230 
67 5003 af B A MOVW #20483. (FAB) > 1231 
7 DD F PUSHL FAB : 1233 
000000006 90 1 f 91 CALLS #1, SYSSCLOSE 3 
9 D 98 MOVL RO, STATUS ; 
iC f 98 BLBC sTATUse, 6 : 1234 
74 Ab SF 0009 PUSHAB 19(R6) : 1237 
04 AE 44 B&F 9A OOOA MOVZBL #68, 4(SP) F 


(eee 


04-008. 
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SCRSMISC SCRSMISC = Misc. routines for the screen packa 1b-5e -1984 02:29:5 AX=11_ Bliss-32 V4.0-742 Page 30 SCR 
Vv $008 CREATE = Create file via RMS . 1 =300- 1387 96:92:2 VMSLIB.SRCISCAMISC.B32°* . (3 voe 
3 1 8 1 § 1 ZSBTTL ‘CREATE = Create file via RMS’ 
2 1 1 ROUTINE CREATE ( 
; 1040 1 » 1 TCB_ : REF BLOCK C, BYTE), 
: 1041 1291 1 LENGTH, 
; 1008 1 3 1 
; 104 1295 1 )e= 
3: 1044 1294 1 !e4 
; 186? : 3? ! FUNCTIONAL DESCRIPTION: 
: 100? 1 38 .7 Create an output file via RMS. 
; 1048 1298 1! 
: 1049 1299 1 ! CALLING SEQUENCE: 
: 1050 13500 1! 
; 1051 1301 1! ret_status.wic.v = CREATE ( TCB.mab.r, 
3 1928 1 8g 77 LENGTH. rl.r, 
; 105 1305 1! ADDR. rl.r) 
3 1054 1304 1! 
H Wee ! R ! FORMAL PARAMETERS: 
; 1057 1 $9 1 i TCB.mab.r Current TCB address. 
; 1058 1308 1! 
; 1059 1309 1! LENGTH. rl.r Length of file name 
: 1060 1310 1! 
: 1061 it 62 ADDR. rl.r Address of file name text string 
3 1066 1316 1! 
3; 106 1315 1 =! IMPLICIT INPUTS: 
3 1064 1314 1! 
3; 1065 1315 1! NONE 
: 1066 1318 1! 
: 1067 131 1 ! IMPLICIT OUTPUTS: 
; 1068 1318 1! 
3 1069 1319 1! NONE 
3; 1070 1320 1! 
: 197) 13 1 : COMPLETION STATUS: 
: 1998 1358 1 i $S$_NORMAL Normal successful completion 
3: 1074 1324 1! Failure status from $CREATE 
3; 1075 1 $2 1! 
; 107 1326 1 ! SIDE EFFECTS: 
3; 107 1327 1! 
: 1078 1328 1! The file is created and connected to. The resulting ISI and 
: 1079 ! 4 : IFI are stored in the control block. 
: 1081 1331 17 
Lf I a oe 
3; 108 3 OCAL 
$ Hi 1334 FAB_BLOCK, ' @ FAB 
3; 1085 1335 FAB: REF $FAB_DECL, ' ptr to FAB 
3 1986 1 $ RAB_BLOCK, ' @ RAB 
; 108 1 RAB™: REF $RAB_DECL, i ptr to RAB 
3 H+ 1 STATUS; ' Status of subroutine calls 
: 1090 1320 
> 1091 1341 
eS 134 ! the stream is stopped. 
: 109 134 !- 
3 1094 1344 STATUS = LIBSGET_VM (ZREF (FABSC_BLN), FAB_BLOCK); 


'¢ 

! Allocate the FAB and RAB here. SCRSSTOP_OUTPUT will deallocate when 
| 
| 


~-EXTRN SYSSCREATE, SYSSCONNECT 


O3FC 00000 CREATE: .WORD Save R2,R3,R4,R5,R6,R7,RB,R9 
59 000000006 90 H 0908 MOV LIBSGET VR, Rr) 
SE C £2 0000 SUBL2 #12, SP 
04 AE 9F 0000C PUSHAB FAB_BLOCK 
04 AE 0 8F 9A 0000F MOVZBL #807 4(SP) 
04 AE OF 14 PUSHAB 4(SP) 
9 F 17 CALLS #, LIBSGET_VM 
8 D 1A MOVL RO, STATUS 
48 E 1D BLBC STATUS, 1$ 
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SCRSMISC SCRSMISC = Misc. routines for the screen packa 1bese 1984 :29:5 AX-11 Bliss-32 V4.0-742 
yoo-008 CREATE = Create file via RMS , ° 1 =30071 38% 96: 4:4 VMSLIB. REISCRMISC.B32¢1 
; 1936 is IF NOT .STATUS THEN RETURN (.STATUS); 
: 109 134 STATUS = LIBSGET_VM (ZREF (RABSC_BLN), RAB_BLOCK); 
; 1998 | ‘8 IF NOT .STATUS TREN RETURN (.STATUS); : 
: 1100 1350 FAB = .FAB_BLOCK; 
; 1101 1 24 RAB = .RAB-BLOCK; 
3 11 ¢ 1 § 
: 710 1 \+ 
: 118 1 : Initialize fields in FAB prior to call to SCREATE 
: 110 135 " CHSFILL (0, FABSC_BLN, .FAB) ; =! Clear FAB to zero 
; 1109 1 3 FAB (FAB$B_61D) = FABSC_BID ; i Block id says its a FAB 
; 1108 1358 FAB LFABSB_BLN] = FABSC_BLN ; ' Length of a 
; 1109 1359 FAB CFABSB_FNS) = ..LENGTH ; ' Length of file spec 
; 1110 1360 FAB LFABSL_FNAJ = ..ADDR ; ! Address of file spec 
: 1111 1361 FAB LFABSV_SQ0) = ! Sequential access only 
: 111g 1 6¢ FAB [FABSB~ = FABSC_VAR ; i Variable-length records 
: 1137 : o7 FAS CFABSV_CR] = 1 ; ! Automatic carriage control 
; 1115 1365 IF NOT ( STATUS = SCREATE ( FAB = .FAB )) 
: 1117 1367 RETURN (.STATUS ) ; 
We BBB. 
; 1120 1370 Initialize fields in RAB prior to $ CONNECT call. 
: 1182 1 ie " CHSFILL ( 0, RABSC_BLN, .RAB) ; ' Clear RAB to zero 
: 112 137 RAB [RAB$B_BID] = RABSC_BID ; i Block id says its a RAB 
: 1124 1374 RAB CRABSB-BLNJ = RABSC_BLN : i Length of a RAB 
: 1 2 : o RAB CRABSL_FAB) = .FAB ; ! Address of FAB 
: 1139 1377 SCONNECT ( RAB = .RAB) ; 
We WBE. 
; 1186 1380 Save IFI and ISI in caller's TCB 
; 113¢ 1382 " TCB CSCRSW_IFI] = .FAB CFABSW_IFI) ; 
711 138 TCB CSCRSWIISI) = .RAB CRABSW ISI) ; 
: 1134 1384 TCB CSCRSL-FAB) = .FAB; 
3 1135 1385 TCB CSCRS$L_RAB) = .RAB; ' save addresses for later use 
3 1136 1386 RETURN (SS$_NORMAL) ; 
3; 1137 1387 1 END; ! End of routine CREATE 
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STATUS, RO 
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SCRSMISC = Misc. routines for the screen packa 18-5 -1984 29:5 AX-11 iss-32 V4.0-74 
EXIT_HANDLER = Exit handler ° 1 =300-} 382 TH ae NMSLIB’ She ischmise poset 
ZSBITL “EXIT_HANDLER - Exit handler’ 


ROUTINE EXIT“HANDLER = 

FUNCTIONAL DESCRIPTION: 

: This routine is invoked on image exit. It searches the List 
; of active streams doing a STOP_OUTPUT on each one. Any errors 
are ignored. 

CALLING SEQUENCE: 

ret_status.wlc.v = EXIT_HANDLER () 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

SCRSL_FLINKHEAD == the head of the List of active streams 
IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

SIDE EFrScTs: 

a NONE 


BEGIN 


ius ~SCRSL_FLINKHEAD NEQ 0 


BEGIN 
LOCAL 

CURRENT_TCB : REF BLOCK C, BYTE); !' Current TCB 
CURRENT_TCB = .SCRSL_FLINKHEAD ; ! Select next TCB 
SCRSSET_OUTPUT ( .CURRENT_TCB CSCRSL_STREAM)) ; ! Make current 
SCRSSTOP_OUTPUT () ; ! Stop stream 


Oa ee ee a dd dd 
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RETURN ($S$_NORMAL); 
END; ! End of routine EXIT_HANDLER 
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C - Misc. routines for the screen pack Sep-1 AX-11 


ISc a 8 4 
HAR = Get terminal characteristics and ing 4 -340~1984 ¢: §:2 VMSLIB 
ZSBTTL ‘GET “GHAR = Get terminal characteristics and init TCB' 
ROU TINE GET-CHAR ( 
TCB_: REF BLOCK C, BYTE], 
TYPE 
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ae 
FUNCTIONAL DESCRIPTION: 


Get device characteristics, set up TCB and return device type. 
CALLING SEQUENCE: 
ret _status.wic.v = GET_CHAR ( he F -rab.r, 


YPE.wl.r ) 
FORMAL PARAMETERS: 
TCB.rab.r Current TCB address. 
TYPE .wl.r Returned device type. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 


BEGIN 


MACRO 
VT52_MODE = XSTRING CRCHAR (CR) XCHAR(ESC), ZCHAR(LB), *22L', 

R(ESC), "\', ZCHAR(CR), © ‘", SCHARCCRDDS, 

VT100_MODE = XSTRING CHEHAR (ERED. ee §x; 


TCB CSCRSW =pevenesi td . LASSLP_LINES Q-6; 
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88 TCB CSCRSW-DEVWIDTH 

20 SCRS_INFOCLASS = SCRSAB_DEVCLASS ; 

9 SCRS-INFOTYPE = SCR EVTYPE 

3 SCRS~ INFOSIZ = SCRSAW SDEVBUFSID ; 

9 SCRS-INFODEP = SCRSAL~DEVDEPEN 

34 SCRS-INFODEP2 = SCRSAL-DEVDEPND 

2 LF (SGETDVI ( CHAN = .TCB varenn ianads ITMLST = SCRSA_ITMLST )) 
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ISC = Misc. routines for the screen packa 1b-3¢ =1984 02:29:5 AX-11 Bliss-32 V4.0-742 
HAR = Get terminal characteristics one ini 1 =3e0n 138i 96: 92:2 VMSLIB.SRCd CRMISC. 3 


BEGIN ! $GETDVI succeeded 
TC6 CSCRSB_DEVTYP) = .SCRSAB_DEVTYPE ; 


i Assume BOLD and UNDERLINE supported until it proves 
otherwise. 


TCB CSCRSL_DEVCHAR] = 2X'FFFFFFFO" ; 
IF .SCRSAB_DEVCLASS EQL DC$_TERM 


! Is a terminal 


an 
mac 


" 
x 
m 
z 


! Status sf subr. calls 
$c : BLOCK CB, BYTE ; | Local descriptor 


US 
DE 
$W_DEVWIDTH] = .SCRSAW_DEVBUFSIZ ; _! Device width 
SW-DEVPAGSIZ] = .(SCRSAL_DEVDEPEND+3)<0,8> ; ! Lines/page 
SL-DEVDEPND2] = .SCRSAL_DEVDEPND2 ; 


ECTONE .SCRSAB_DEVTYPE OF 


COTS_FT1 TO DT$_FT8): ! Foreign terminals 
~TYPE = VTFOREIGN ; 


CbT$_vT52, DT$_vT55]: ! Treat Like VT52 
~TYPE = vT52 ; 


COT$_VT100): ! vT100 
~TYPE = VT100 ; 


COT$_VT05): ! vT05 
~ TYPE = VTO5 ; 


COTHERWISE): 
IF .SCRSAL_D 
» SCRSAL_D 

HEN 


MIS WN—COONOULS WO 0@w 


nun a44 
mm O00 
——- wow 


! Unknown 
_DEVDEPND BIT $V_DECCRTJ OR 
_DEVDEPND2 CTT2$V_ANSICRTJ 
riage compatible (ANSI) 
vT106 compatible (ANSI) 
BEGIN ! Really Unknown 
=0Q:;: 


| Assume NO attributes supported. 
TCB CSCRSL_DEVCHAR] = -1 ; 
ees END; ' Really Unknown 


+ 

! If vT52 or VT100, the terminal might be a VT100. In any 
' case, 1889 the prover escape sequence to en we that 
the VT1 s in the correct mode, ANSI or VT52. 


$W_LENGTH) = 0; 
<CLASS 
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SC = Misc. rays oes for the screen peckag | 16- -Sep-1984 9¢:6?:? AX-11 Oi ietcze V4.0-742 
AR = Get terminal characteristics and ini 14-Sep-1984 15:54:4 VMSLIB.SRCJSCRMISC.B32;1 
4 THEN 
BEGIN ! To yt5e mode 
LOC_DESC Pst W_LENGTH) = es ae vT52_M 139 ha 
LOC_DESC LDSCSA_ POINTER] = UPLIT ( bye” (vT5 movE)); 
END ! To VT52 mode 
4 ELSE 
4 IF ..TYPE EQL vT100 
4 THEN 
5 BEGIN ' To VT100 mode 
5 LOC_DESC COSCSW_LENGTH] = ZCHARCOUNT (VT100_MODE) 
5 LOC_DESC Doon PUL NT ER = UPLIT ( BYTE (VTTOO moDE)); 
? ND; ! To VT100 mode 
4 IF .LOC_DESC CDSC$W_LENGTH] NEQ 0 
4 THEN 
5 BEGIN 
5 STATUS = SCRSFUT_SCREEN ( LOC_DESC); 
é IF ad STATUS 
5 RETURN (.STATUS ) ; 
: END; 
3 ‘ END ! Is a terminal 
4 wy 3 ! a a terminal 
4 i ark as wee 
4 ite SCREB* TYPE = TYPE ; 
3 END; ! Not a *toratant 
j — ! $GETDVI succeeded 
: arere ! SGETDVI failed 
; 0; Ror’ unknown 
ice scree. 1 TYPE] = ..TYPE ; 
§ END ; ' §$GETDVI failed 
2 
2 RETURN (SS$_NORMAL) ; 
1 END; ! End of routine GET_CHAR 
OD 20 20 20 OD SC 18 6C 32 3F SB 1B OD 4a P.AAB: otf <13><27>\L22L\<27><92><13>\ -\<13> 
3c (1B B08. P.AAC: .ASCII <27>\<\ 


-EXTRN SYSS$GETDVI 


001C 00000 GET_CHAR: 
RD Save 


“wo 
54 00000000' nf $008 MOV ie OR OEPND2. R4 
8 C SUBL 
» 000000006 ; ” 00 F F 19 Cat i L és P_LINES 
Re RE Sere Eig Baad 
oc he 84 8F 98 O00IC MOVZBW iar R2) 
8 FO «=6A4 «9E 00021 MOVAB SCR iN:) “SENCLASS, SCRS$_INFOCLASS 
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be Se SCRSMISC = Misc. routines for the screen packa g 1p-se Sep-1984 
v04-0 GET_CHAR = Get terminal characteristics and ing 14-Sep-1984 
5 5 F4 108: T 
Fe B 
§ DD F P 
000000006 60 4 a} ta i" 
be 194 R 
3 Be 1 3 11$: C 
OA ag 8 0 001 M 
5 1 bY 8 10B 12$: M 
4 QO10E R 
; Routine Size: 271 bytes, Routine Base: _LIBSCODE + 0506 


; 1346 1594 1 !<BLF/PAGE> 


4 98:8 


os 


2 AX-11 Bliss-32 V 22"s -742 
24 VMSLIB.SRC SCAMIS .832;1 
LOC DESC 

1. s CRSP T_SCREEN 

STATUS 1387 

(R3) 

(R3), 10(R2) 

#1, RO 


COMMAND QUALIFIERS 


F 12 
Seeenisc SCRSMISC = Misc. routines for the screen packag 19-3007 138% 96: 62'2 AX-11 Bliss-32 V4.0-742 
v04-0 GET_CHAR = Get terminal characteristics and ini 14-Sep-1984 13:34:4 VMSLIB.SRCJSCRMISC.832;1 
> 1348 1595 1 END ! End of module LIBSSCREEN 
: 1349 1 38 1 
; 1350 1597 0 ELUDOM 

LIBSSTOP_OUTPUT== SCRSSTOP_OUTPUT 

$ PSECT SUMMARY 
: Name Bytes Attributes 
>  LIBSDATA 104 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; _LIBSCODE 1557 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
We Cre ese ee ee Ty ene YaRo|§ connosee Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32; 1 9776 65 0 581 00:01.0 
; _$255$DUA28:CVMSLIB.OBJISCRLIB.L32;1 62 5 56 7 00:00.1 
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BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:SCRMISC/OBJ=OBJ$:SCRMISC MSRC$:SCRMISC/UPDATE=(ENH$:SCRMISC) 


: 1528 code + 133 data bytes 
Run Time: 00:31.8 
Elapsed Time: 0933 8 

Lines/CPU Min: 01 

Lexemes/CPU-Min: 20915 

Memory Used: 229 pages 

Compication Complete 
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